;stck 第一次自主设想开发测试
stck segment stack
db 30 dup (?,0)
stck ends

data segment
meiss db 'K_845362NN245348_K'
bufss dw $,0
bvoff db ''
meopr label byte
napor dw 0
du2fr label byte
buffr dw 0
data ends

code segment
assume cs:code,ds:data,ss:stck
start:
mov ax,data
mov ds,ax

mov es,ax

mov ax,bufss
mov dl,2
div dl
mov dl,ah
mov meopr,dl
mov du2fr,al
mov ax,buffr
mov dx,ax
mov di,dx

mov cx,napor

cmp cx,1
jnz norboox
lea dx,bufss[2]
mov si,dx
mov [si],ax
mov al,bvoff
stosb
jmp lstbooss

norboox:
lea dx,bufss[2]
sub ax,1
push ax
mov si,dx
mov [si],ax
mov di,ax
mov al,bvoff
stosb
pop ax
add ax,1
mov [si],ax
mov di,ax
mov al,bvoff
stosb

lstbooss:
mov bx,1
mov dx,offset meiss
mov cx,bufss
mov ah,40h
int 21h

mov ah,4ch
int 21h
code ends
end start